DEFINITION MODULE WindGet;

(*
WindGet - Functions.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM AES    IMPORT TreePtr;
FROM RcMgr  IMPORT GRect;
FROM PORTAB IMPORT UNSIGNEDWORD,SIGNEDWORD;

(* WFKind *)

(* WFName *)

(* WFInfo *)

(* WFWorkXYWH *)

PROCEDURE WorkXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFCurrXYWH *)

PROCEDURE CurrXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFPrevXYWH *)

PROCEDURE PrevXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFFullXYWH *)

PROCEDURE FullXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFHSlide *)

PROCEDURE HSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;

(* WFVSlide *)

PROCEDURE VSlide(Handle: SIGNEDWORD): UNSIGNEDWORD;

(* WFTop *)

PROCEDURE Top(): SIGNEDWORD;

PROCEDURE TopAndBelow(VAR Top  : SIGNEDWORD;
                      VAR Id   : SIGNEDWORD;
                      VAR Below: SIGNEDWORD);

(* WFFirstXYWH *)

PROCEDURE FirstXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFNextXYWH *)

PROCEDURE NextXYWH(Handle: SIGNEDWORD; VAR Rect: GRect);

(* WFNewDesk *)

PROCEDURE NewDesk(): TreePtr;

(* WFHSlSize *)

PROCEDURE HSlSize(Handle: SIGNEDWORD): SIGNEDWORD;

(* WFVSlSize *)

PROCEDURE VSlSize(Handle: SIGNEDWORD): SIGNEDWORD;

(* WFScreen *)

(* WFTopAttrb *)

(* WFColor *)

(* WFSizTop *)

(* WFDColor *)

(* WFTopAp *)

(* WFOwner *)

PROCEDURE Owner(    Handle: SIGNEDWORD;
                VAR Open  : BOOLEAN;
                VAR Above : SIGNEDWORD;
                VAR Below : SIGNEDWORD): SIGNEDWORD;

(* WFBack *)

(* WFBEvent *)

PROCEDURE BEvent(Handle: SIGNEDWORD): BOOLEAN;

(* WFBottom *)

PROCEDURE Bottom(): SIGNEDWORD;

END WindGet.
